home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / t / op / sprintf.t < prev    next >
Text File  |  1998-03-05  |  619b  |  34 lines
  1. #!./perl
  2.  
  3. # $RCSfile: sprintf.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:27 $
  4.  
  5. print "1..4\n";
  6.  
  7. $^W = 1;
  8. $SIG{__WARN__} = sub {
  9.     if ($_[0] =~ /^Invalid conversion/) {
  10.     $w++;
  11.     } else {
  12.     warn @_;
  13.     }
  14. };
  15.  
  16. $w = 0;
  17. $x = sprintf("%3s %-4s%%foo %.0d%5d %#x%c%3.1f","hi",123,0,456,0,65,3.0999);
  18. if ($x eq ' hi 123 %foo   456 0A3.1' && $w == 0) {
  19.     print "ok 1\n";
  20. } else {
  21.     print "not ok 1 '$x'\n";
  22. }
  23.  
  24. for $i (2 .. 4) {
  25.     $f = ('%6 .6s', '%6. 6s', '%6.6 s')[$i - 2];
  26.     $w = 0;
  27.     $x = sprintf($f, '');
  28.     if ($x eq $f && $w == 1) {
  29.     print "ok $i\n";
  30.     } else {
  31.     print "not ok $i '$x' '$f' '$w'\n";
  32.     }
  33. }
  34.